fix type hints error kind

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 666d467051ef4fe7bfb5b10fea4629f4a8624c98..5ebaf9f0f5a01986e7348a5f1fd029b7e31ca7b2 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1789,10 +1789,12 @@ Prepare every function for final compilation and drive the C back-end."
 ;; are assumed just to be true. Use with extreme caution...
 
 (defun comp-hint-fixnum (x)
-  (cl-assert (fixnump x)))
+  (unless (fixnump x)
+    (signal 'wrong-type-argument x)))
 
 (defun comp-hint-cons (x)
-  (cl-assert (consp x)))
+  (unless (consp x)
+    (signal 'wrong-type-argument x)))
 
 \f
 ;; Some entry point support code.